MacWarehouse Macintosh Games/MacWarehouse Macintosh Games.iso/AMBER demo/AMBER-Journeys Beyond™ Patch 1c/00102_colorDepth & gamma-fade utilities.ls

Text File | 1997-02-19 | 1.2 KB | 58 lines

on resetSound whatLevel
  if the number of menus > 1 then
    set the checkMark of menuItem (8 - the soundLevel) of menu 2 to 0
  end if
  set the soundLevel to whatLevel
  if the number of menus > 1 then
    set the checkMark of menuItem (8 - the soundLevel) of menu 2 to 1
  end if
end

on report outString
  global testData
  if objectp(testData) then
    testData(mWriteString, outString & RETURN)
  else
    put outString
  end if
end

on REPORT2 outString
  global testData
  if objectp(testData) then
    testData(mWriteString, outString & RETURN)
  else
    put outString
  end if
end

on gammaFade upOrDown, howFast
  set speedCodes to [#slow: "18", #fast: "36", #instant: "100"]
  set mySpeed to getaProp(speedCodes, howFast)
  if voidp(mySpeed) then
    set mySpeed to getProp(speedCodes, #fast)
  end if
  if upOrDown = #down then
    MonitorFade("down", mySpeed)
  else
    updateStage()
    MonitorFade("up", mySpeed)
  end if
end

on setColor howManybits
  set the colorDepth to howManybits
  if the colorDepth <> howManybits then
    if howManybits = 16 then
      set the colorDepth to 32
    else
      put "Sorry, Director sez the colorDepth is " & the colorDepth & " bits.."
    end if
  else
  end if
end

on suspendSounds
  exit
end